home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Power Programmierung
/
Power-Programmierung (Tewi)(1994).iso
/
magazine
/
ins_msb
/
9003
/
fontdrv.bas
< prev
next >
Wrap
BASIC Source File
|
1991-05-22
|
936b
|
44 lines
DECLARE SUB DspScreen ()
DECLARE SUB InpScreen ()
'$INCLUDE: 'FontScr.BI'
CLS
DspScreen
InpScreen
Pause "End of program...."
CLS
END
SUB DspScreen
CALL SetScreen(Blue, Cyan, 9)
TmsrFont$ = "e:\bc7\fonts\TmsrB.Fon"
CourFont$ = "e:\bc7\fonts\CourB.Fon"
Successful% = RegLoadFonts%(TmsrFont$, Tmsr24)
IF NOT Successful% THEN STOP
Res% = SetFont%(1, Blue)
CLen% = GCentered%(1, "Super Duper WONKA Graphics Screen")
Successful% = RegLoadFonts%(CourFont$, AllFonts%)
IF NOT Successful% THEN STOP
Res% = SetFont%(Cour12, RED)
Res% = GPLine%(5, 1, "Enter the following Information:")
LM% = 5
Res% = SetFont%(Cour10, Yellow)
Res% = GPLine%(8, LM%, "First Name [ ]")
Res% = GPLine%(8, Res% + 2, "Last Name [ ]")
END SUB
SUB InpScreen
a$ = GInput$(8, 17, 12)
b$ = GInput$(8, 43, 21)
END SUB